home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / misc / stool15.lha / STool / src / bumprev.rexx next >
Encoding:
OS/2 REXX Batch file  |  1994-07-12  |  831 b   |  27 lines
  1. /* */
  2. address AREXX
  3. p=pragma('d')
  4. if right(p,1)~=":" then p=p||"/revision"
  5. cmd = "ci -l -f -t- -m- "||p
  6. address command cmd
  7. open(ifile,"revision",'Read')
  8. l = readln(ifile)
  9. f = readln(ifile)
  10. d = "$"
  11. parse var l "$" deuh "vision: " vers "." revi " $" .
  12. close(ifile)
  13. open(ifile,"version.h",'Write')
  14. writeln(ifile,"#define    VERSION  "||vers)
  15. writeln(ifile,"#define    REVISION "||revi)
  16. dat=translate(date(e),".","/")
  17. writeln(ifile,'#define    DATE    "'dat'"');
  18. fvr=f' 'vers'.'revi
  19. say fvr
  20. writeln(ifile,'#define    VERS    "'f' 'vers'.'revi'"')
  21. writeln(ifile,'#define    SOURCEVERSION    __DATE__","__TIME__" : "__FILE__')
  22. writeln(ifile,'#define    VSTRING    "'fvr' ('dat')"')
  23. writeln(ifile,'#define    VERSTAG    "\0$VER: 'fvr' ('dat') © P.Marquardt"')
  24. writeln(ifile,'#define    CHARVERSTAG static char CVERSTAG_[]=VERSTAG')
  25. close(ifile)
  26. address command type version.h
  27.